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ABSTRACT 

REQUIREMENTS 

EQUIPMENT 

STORAGE 

PRELIMINARY PROGRAMS 
LOADING PROCEDURE 
STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 
STARTING ADORESS 
PROGRAM AND/OR OPERATOR ACTION 
OPERATING PROCEDURE 
OPERATION SWITCH SETTI! 
SUBROUTINE ABSTRACT 
ERRORS 

RESTRICTIONS 
MISCELLANEOUS 

EXECUTION TIME 

STACK POINTER 

ERROR INFORMATION 
PROGRAM DESCRIPTION 
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RES TRACT 
THIS PROGRAM WILL TEST UP TO EIGHT RPO2 


“eG. Teh iat 


iE 
Wes 













REQUIREMENTS 
EQUIPMENT 

RPLiC, Sk CONTROLLER “theo O EIGHT RPl2/RPO3 
2.2 STORAGE 


4K OF STORAGE IS RESUIRED TO RUN THIS TEST 


PRELIMINARY PROGRAMS 


Rotee Bt tee rape Tye 
ABILITY CIAGNOSTIC 


LOADING PE CEDURE 
USE STANDARD PROCEDURE FOR a5S TAPES. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE 5.1.1 
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4.2 STARTING ADDRESS 


RP11C MULTI DRIVE DIAGNOSTIC 
OZRPCB.MO1 
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THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. 


4.3 PROGRAM AND/OR OPERATOR ACTION 


1. LOAD PROGRAM INTO MEMORY USING ABS LOADER 

é. LOAC ADDRESS 200 

3. SET SWITCHES (SEE SEC. 5.1.1) 

4, PRESS START. 

S. THE PROGRAM WILL LOOP UNTIL STOPPED 

a ae 
THAT THE PROGRAM RUN AT LEAST HALF Ai 


S. OPERATING PROCEDURE 


S.1 OPERATIONAL SWITCH SETTINGS 


AT STARTING ADDRESS 200, THE SETTING OF THE SWITCHES 
WILL DETERMINE WHICH UNITS ARE TO BE TESTED. 


5.1.1 SWITCH SETTING GRE: 


“in Tw ON ERROR 
Sh ip ei: caine a INHIBIT PRINTOUT 
sae NOT USED 
a i NOT USED oR 
WRU SW< ad he ERROR ELECT UNIT FOR TEST 


SucO?> CORRESPONDS 19 UNIT 2 


S.é SUBROUTINE ABSTRACTS 


S.2.1 HLT 


— -_wS<o.o—— —- o-« A, eA I tell a nh he ae A RN ap Eh Re ae it i i ieee eo ae 


| 
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D2RPCB. MOL acd 

a. THIS ROUTINE IS ENTERED UPON DETECTION OF AN ERROR. 
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PAGE S 


Hache oR offs STi FEO ARR IG 


ERROR, INHIBIT TYPEOUTS, RINGS THE BELL 

TRAP CATCHER 

Cath aly UNEXPECTED TRAPS. “THESE UNEXPECTED TRAPS 
OR INTERRUPTS WILL HALT AT THE VECTOR +2. 


ERRORS 


WHEN ERRORS ARE ENCOUNTERED, THE ADDRESS OF 


IS IN OCTAL. 
ERROR MESSAGE FORMAT 


CTOR CT CTOR 
EXPECTED EXPECTED DA 
RECETVED RECEIVED DATA 


RESTRICTIONS 


SINCE THIS BP ~{ INTERACTION TEST, THERE IS NO 
NG ON ERRO 


MISCELLANEOUS 


RPLIC MULTI ORIVE DIAGNOSTIC  MACYLI 27(732) 16-SEP-7e 18:29 PAGE 8 


OZRPCB. 

PAGE & 
1 

8.1 EXECUTION TIME 
4 NATURE OF PROGRAM THERE IS Nd 
ANINGFUL PASS COUNT. IT IS RECOMMENDED THAT THE 
=e . PROGRAM RUN FOR HALF AN HOUR. 

ess 
69 


8.2 STACK POINTER 
STACK IS INITIALLY SET TO 500. 


8.3 ERROR INFORMATION 
SI TQ HAVE TIF Caren Ors 
SirBuTteD 053 Ric H_ INST ao OF THE TELETYPE 
CHANGE THE FOLLOWING THREE LOCATIONS. 
LOCATION FROM TO 
1304 177564 177554 
177566 177556 
1336 177564 177554 


9.9 PROGRAM DESCRIPTION 


-. WHEN STORIED g SELECTED Uh _FEST THE FOR 
EACH CTED THEN OLLOWING 
SEQUENCE 1 SELECTED 


vA 


BR IRR FOROS DORR EO OB IN TER eked Total 2 


310 LIST ME 

st — MC, MO, CND 

315 -TITLE FRONT END 

314 sCOPYRIGHT 1972,1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 
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CONTAINS DEFINITIONS, REGISTER ASSIGNMENTS AND MACRO CALLS 
GENERAL REGISTER ASSIGNMENTS 
RO=%0 





oco000 
000001 Ri=x) 
000003 R3=% 
000004 = 
SOBSBE SP=%6 
500087 = 
»STATUS REGISTER (PSW) BIT ASSIGNMENTS 
000001 C=] -C BI 
000602 va -V BIT 
000004 Z=4 :Z BIT 
N=10 -N BIT 
par tRTOR TY ? 

003 Pate= 300 PRIORITY LEVEL 5 
000240 PRIS=240 *PRIORITY LEVEL S 
000200 PRI4=200 *PRIORITY LEVEL 4 
000140 PRI3=140 -PRIORITY LEVEL 3 
000100 PRI2=100 sPRIORITY Level e 
000046 PRI1=40 *PRIORITY LEVEL ! 

VECTOR ADDRESSES 
000004 ERRVE sERROR VECTOR 
000010 RESVEC=10 *RESERVED INST VECTOR 
090014 TSITVEC=14 -T BIT VECTOR 
600020 IOTVEC=20 -IOT T 
900024 PFVEC= -POWER FAIL VECTOR 
000030 EMTVEC= -EMT TOR 
000034 TRAPVEC= - TRAP VECTOR 

REGISTER ADDRESSES 
177776 PSW=177776 sPROCESSOR STATUS REGISTER 
177560 TKS=177560 “KE C 
1775€2 TKB=177562 sADDR OF KEYBOARD BUFFER 
177564 =177564 i TELEPRINTER C 
177566 TPB=177565 *TELEPRINTER BUFFER 

177570 SWR=17757'0 : CONSOLE SWITCH REGISTER 

177570 DISPLAY=177570 : CONSOLE DISPLAY REGISTER 
s INITIAL STACK POINTER 

oo0s00 STKPTR::SO0 sPROGRAM STACK POINTER 
sBIT ASSICNMENTS 

100000 81S5=100000 
040000 814=40000 
020000 eStore 
010000 12=10000 
004000 811=4C00 
602000 810=2000 
C01000 89=1000 


FRONT END 
M01 


Notoltaindes : 
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a 


362100 


Ba=20 


83=10 


S2=4 
Bdat 


;MEMORY MANAGEMENT REGISTER ASSIGNMENTS 


ee @e @e we we we 


S 
Y 


es 


;sHLT IS A TRAP TO THE ERROR ROUTINE 
;SCOPE IS AN EMT TRAP 


AB SSSERESR HS Rate 


in 
+ 


PRESTO SHO UI 


SS88Sess 888S8ssEq 


ate 


ae 


+= b= bb 
tate 
— 
£rT 


BRR 


Reece 


200 
ett 
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: DUMP 
: RAND 
: READ 
+L T ME 
Rov #START,PC GO TO START OF TEST 
ICNT: a ;CONTRINS PASS COUNT 
: PROGRAM TRAC 


L 

; SCOPE (EMT) SERVICE ROUTINE 

THIS ROUTINE WILL LOOP IF AN ERROR OCCURED 
LOOP ON ee oP a ie IS SET (BIT 14). IF LOOPING IS INDICATED 
5 THE CONTENTS OF “LAD” EQUAL THE LOOP ADDRESS. IN ORDER 

;TO LOOP ON ERROR, BIT 14 OF THE SWITCH eeteree MUST BE SET AND 
sLOCATION “ERRFLG* MUST BE NEGATIVE INDICATING AN ERROR. ONCE THE 
sLOOP IS INITIATED IT WILL CONTINUE UNTIL SWITCH 14 IS CLEARED. 


SCOPES: BIT #814, J&#SWR ;LOOP ON ERROR? 
BEQ es 


;BRANCH IF NO 

TST ERRFLG 1S T AlN N ERROR? 

BNE 1$ F YES 
2$: cLR ERRFLG :RESET ERROR CONDITION 
1S: NOY LAD, (SP) ;NOOIFY RETURN ADDRESS 
ane: TO SAVE REG »PEGISTERS ON THE STACK. 
ives fv (SP)+, 1$ -SAVE RETURN PC 

MOV » Pits 

MOV RY’ -(SP) 

MOY R3’ -(SP) 

MOV Re; -(SP) 

MOV R1.-(SP) 

MOV RO’ -(SP) 

MOV 1$'PC : RETURN 


SSIRRPGH BSE IER ES 


© 


pianists 


BSSS 5055055000500 0000500000000088 


+ - } +6 = b-- & + b+ 6 + b-+ = Oe OH sd + OO = Ds + = Ph = 


0 


UTUNUNIUNU Un cnc 
t— b= bb bb 
WOnNWU CWO 


tatttt istitiaiat 


S50000088 
mr 


IRE PEFSRRERB Eh 


SHUN S 


RReINe  BwoazoS 


‘-Beageess 
Wi) 
Me 
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177570 


177570 


ooc0s4 
Oo0044 
000356 


041S20 


177570 


1$: 0 CONTAINS S RETURN ADDRESS 
;ROUTINE TO -BESTORE REGISTERS saleD ON STACK 


BY RO 
MOV (eB. 1g -SAVE RETURN PC 
MOV (SP)+ RO 
MOV (SP)+,R1 
MOV (SP)+, Re 
MOV (SP)+,R3 
MOV (SP)+.R4 
MOV (SP)+_,R5 
MOV 1$,PC » RETURN ; 
1$: 0 ‘CONTAINS RETURN ADDR 
sERROR SERVICE ROUTINE CALLED BY HLT 
THIS ROUTINE WILL HALT ON ERROR, RING THE BELL, AND 
“TRANSFER CONTROL TO A USER SUPPLIED ROUTINE IF SPECIFIED 
ERROR: TST as8SWR ;HALT ON ERROR? 
; EPL 3$ “BRANCH IF NO 
3S: gir #811, JeSWR sRING THE SELL? 
ISR . RS,PRNTFS FORCE PRINT THE MESSAGE 
1S: BIT #813, d¥SWR :SKIP TYPEOU 
BNE zt *BRANCH IF VES 
ISR RS, PRINTS “PRINT MESSAGE 
MOV...‘ (&) ,HLTADS -GET ERROR PC+2 
SUB #2, HLT : MODIF'y 
MOVB § @HLTADS.HLTCTS :SAVE HLT ARGUEMENT 
MOV HL TADS, TTY 
JSR PC, PRIATR sTYPE LOCATION WITH LEADING ZEROS 
JSR PC’ MSG TO USER ERROR ROUTINE 
2$ TST JeSWR {HALT ON ERROR? 
ePL =i “BRANCH IF NO 
“3 BIS #6815. ERRFLG :SET ERROR FLAG 
INC ERRORS ‘UPDATE ERROR COUNTER 
ERRFLG: 0 
HLTCTS: O 
HLTADS: 0 -PC OF ERROR 
ORS: 0 “ERROR COUNT 
BELL: .ASCIZ <?> , 
ERRPC: .ASCIZ ¢<15><12><15><12>’*PC= ” 


- EVEN 
;THIS ROUTINE WILL PRINT AN ASCIZ MESSAGE. 


“THE MESSAGE MUST TERMINATE IN 
PRINTS: BIT #813, J8SWR : INHIBIT TYPEOUTS? 
BEQ PRNTES : BR IF NO 
BOD #2,R5 -UPDATE RETURN ADDR 
PRNTFS: STB a¥TPS ;WAIT FOR PRINTER TO FINISH 
MOV as. -(SP) 
ADD #2, (SP) sADJUST RETURN PC 


+ 


SBo005G0008 8S 


012703 
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177570 


177570 


000140 


000125 


000102 


ifheck FOR TERMINATOR 
;GET RETURN ADDR 


pT CHARACTER 
:WAIT TILL DONE 


; INHIBIT TYPEOUT? 
; BRANCH H IF NO 


; INHIBIT TYPEOUT? 
:BRANCH IF NO 


;SET ZERO FILL SWITCH 


: CUPPRESS LEADING ZEROS 
sSET ad 


say POINTER aT nae CHARACTER 
CLEAR FIRST 
‘ROTATE F Rot att 
‘CLEAR BYTE OF CHAR 
;BIT TYPING MODE 
sYES SKIP 2 ROTATES 
ROTATE BIT INTO C 
PACK IT 


f 315 sit 2 ZERO 


ST FILL SWITCH 
ree SWITCH 

SIP BITSET 

; MAKE ps ASCIZ CHAR 

; INC COUN 


T 
EMPTY BUFFER 
SKIP IF NOT 
NE ZERO 


LOAD 0 
> NULL TERMINATOR 
PRINT MESSAGE 


sRESTORE RY 


SAVE ee 


V (RS), RS 
1$: TSTB (Re) 
BNE 23 
MOV (SP)+,RS 
RTS 
es: MOVE ( 322 /98tre 
TSTB aeTPS 
WBS 
-THIS ROUTINE TYPES A LOCATION IN OCTAL 
PRINTR: BIT #813, J#SWR 
BEQ tata 
RTS a" 
PRINTS: aM tS aeSWR 
Q PRINTB 
RTS PC 
PRINTA: MOVB #1, .PR 
BR +6 
PRINTB: CLR .PR 
MOVB #-6, .PR+1 
-PTIT: MOV R4.-(SP) 
MOV #.PR+2,R4 
CLRB (RY) 
Br . PRE 
PRL: LRB (RY) 
BIT #100, .PR 
BNE . PRE 
ROL TTY 
ROLB (4) 
ROL TTY 
ROLE (4) 
.PRF: ROL TTY 
ROLB (4) 
TSTB (4) 
BEQ +6 
INCB .PR 
TSTB PR 
BEQ +6 
BISB #°O,(4)+ 
INCB = . PR+1. 
BNE PRL 
CMP it. 2PRte, Re 
BNE 
MOVB 0, (4)+ 
CLRB 
JSR RS,PRINTS 
.PR+e 
MOV (SP)+,R4 
RTS PC 
.PR: BLKW ile 
TTY: 0 
RANDS 
JSR PC, SAVES 
MOV LONUM, RO 
MOV HINUM,R1 
MOV #-7,R3 


SET SHIFT COUNT 


FRONT END 
DIRPCB.MOl 

* ] 

x we 
cs; gl 
236 18! 

33 1é14 
§90 mate = 
50! : 
ets cate 
fie 

1840 
~ 001842 
Eps Boieed 
ce Solbee 
Fis BoteeR 
513 O0lé62 
£14 api ess 
615 OOl& 
Pte 0018765 
618 901700 
61S 901702 
S20 901704 
621 001706 
p22 poizie 
PSS Bata 
pee ices 
l 
S28 O01736 
Psa epee 
1744 
631 001744 
p32 001750 
Bote 
625 001762 
636 ete 
637 901 
638 901774 
a 901776 
641 02006 
tte 002010 
pig O020!le 
| peo 
002060 


BSE Sea 


~BOe 
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CLR R 
1S: ASL = SHIFT RO LEFT AND 
l ROL R! sROTATE CORR CARRY INTO Bl AND 
ROL © CARRY INTO Re 
NC Q CHECK FOR 0 
ae t 
po000ss LONUM, Re :ADD # TO MAKE x 1293 
l ADC RI -PROPCGATE CARR 
6701 OO00%S ROD HINUM,R1 -ADD # TO MAKE M 1293 
posse ADC Ee t BROPIGATE CARRY 
001057 ADD #1057.R0 
302301 apc l sPROPOGATE CARRY 
Oe ADC FE -PROPOGATE CARRY 
082701 O474O! 800 847401,R1 
oo000s ie 86,Re 
ADD R2,RO 
} adc RI 
019067 900014 MOV RO, LONUM 
19 67 MOV Rl, HINUM 
? 177166 JSR PC RESTS sRESTORE THE REGISTERS 
RTS pc 
ooooce HI 0 
gon090 LONUM: Q 
1 RE MOV R3,-(6) F 
912703 o02014 13: MOV sINPUT$,R3 -GET BUFFER ADDR 
922702 002034 23: CMP SINPUT$+20,R3 :SUFFER FULL? 
dOl4ig gEG 4u§ -YES.. TYPE ? 
l 177560 i: 38177560 “WAIT FOR A CHAR 
See mre oe SET CHAR 
44351 Annee ate be)7 aay ‘3 -GET RID OF JUNK 
122713 900177 CMP #177, (3) -IS IT A.RUBOLT? 
001904 # BNE :SKIP IF NO 
Q04S67 177314 J pt -PRINT MESSAGE 
oo20s4 READMS 
p0g7ss BR 1$ : CLEAR BUFFER. AND START OvER 
l 177Ste i77S66 38: MOV asTKB astPs HO T 
105737 177564 TSTB = aBTPS 
100375 QPL 4 WAIT FOR READY, | 
23 ooog1s CHPB 815, (3)+ -C FOR RETURN 
1346 BNE ‘LOOP IF NOT RETURN 
l 1 CLRB Ss =1(3) “REMOVE THE RETURN 
6? 177256 ie RS, PRINTS -PRINT MESSAGE 
012603 MOV (6)+,R3 :RESTORE R3 
900207 RTS pC : RETURN 
UI$: . BLK 20 
006477 o00ble ae “BeCTz "2" 15>< 12> 
ococ1e READLS: .ASCIZ «12 
TAKE THE CONTENTS OF THE TTY INPUT BUFFER AND 
“PACK THEM INTO ONE WORD TO CREATE AN OCTAL NUMBER 


— ee Oe eS a eer eee 


A TTT TT 


SESGRRESEL OSB R POE Bled 


FRONT END 
DRPCB. MOL 
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002014 
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000212 


0008 12 


PACKS: 
2s: 


1$: 


PyS: 
NUMS: 


eanse 


<> 


BRR RPE 


semaewd iy 


oo 


PC, SAVES 


INPUTS$(RO) 


PKS 


PK 
NPUTS$(RO) PKS 
8177770,PKS$ 

PC 


;SAVE THE REGISTERS 


i GET at CHAR 
;PACK FIRST CHAR 
;GET OCTAL CHAR 


sPACK SECOND CHAR 
;GET OCTAL CHR 


3 PACK THIRD CHAR 
GET OCTAL CHAR 


sPACK FOURTH CHAR 
-GET OCTAL CHAR 


-PACK FIFTH CHAR 
“MODIFY STACK 


sRESTORE THE REGISTERS 
sEXIT ; 


-GET INPUT CHAR 
-CLEAR UNWANTED SITS 


7 


po2- 
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L7¢¢¢ 
ee 
15eu38 


4 


005374 


005374 


- TITLE 
START: 


CLRTAB: 


7$: 


es: 


1$: 


MAIN: 
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RP1IC MULTI DRIVE DIAGNOSTIC 
MOV aSTKPTR, SP :SET STACK POINTER 
MOV #340, J8PSiW +LOCK UP INTERRUPTS 
MOV 34 - SETUP TRAP 
MOV 36 
MoV P 30 :SETUP SCOPE TRAP 
M SKINT. a#VECTOR -SET UP DISK INTERRUPT VECTOR 
nov £340, aab TALS 
CLR DEVTBL (RO) “CLEAR THE DEVICE TABLE 
ST (RO)+ 
CMP #128. 
BNE CLRTAB 
S aa42 :UNDER MONITOR CONTROL? 
BEQ S$ * BRANCH 
LR RO “CLEAR MODIFIER 
MOV #1, @RPCS ; CLEAR THE CONTROLLER 
MOVB 1 aRPCS “SELECT UNI 
TST aRPOS “1S UNIT READY? 
1s #815, DEVTBL(RO) :SET UNI VAILABLE BIT 
ADD #16. .RO -UPDATE MODIFIER 
ane na3 Rl 7: ? Unie veetens 
Q 75° : BRANCH IP NO 
QR chs 
MOV #1,R1 
CLR RO 
BIT Ri, JaSWR -TEST THE SWITCH REGISTER 
BNE 1$ :TO DETERMINE WHICH UNITS 
BIS #815,DEVTBL(RO) :TO TEST. IF THE UNIT IS UNAVAILABLE 
R00 #16. .R0 -SET BIT 1S IN THE DEVICE TABLE 
R1 
ar #62,R SHAVE ALL UNITS BEEN SCANNED? 
BESET -CLEAR THE SYSTEM 
JSR RS. EXTMEN INE AMOUNT OF CORE 
CLR UNIT - INITIALIZE POINTER 
th Re 
BIT #815, DEVTBL(RS) ;IS UNIT AVAILABLE? 
BNE 35 ‘BRANCH IF NO 
ISR PC HOME -DO A HOME SEEK 
INC UNIT -UPDATE UNI 
ADD #16. ,.R5 ‘UPDATE TABLE POINTER 
BIT 863, UNIT SHAVE ALL UNITS BEEN HOMED? 
Q ug : NO-BRANCH 
CLR UNIT 
CLR RS 
BIT #615, DEVTBL(RS) ;IS THE UNIT AVAILABLE” 
BNE 1$ :BRANCH IF NO 
MOV DEVTBL(RS) .RY 


° 
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~~ 
<> 
=F 
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_ MEXITI: BR 


a ne 
a oth 


a aes 


EX fr 


3) 


PC, (RL) 


LOOP 


af hog eet oon IN JMPTBL 


rE POINTER 


s HAVE UNITS BEEN SCANNED? 
BEnENT TION COUNTER 
here 
nONTTOR CONTROL ” 
PASS SOMLETE” 
H_IF NO 
TURN ADDRESS 
;RETURN TO MONITOR 


; LOOP 


THIS, ROUTING MILL SEEK HOME THE PACK WHOSE 


HOME : 


S$: 


1$: 


65: 


4§: 


ATTNB: 
ATTN: 


. BYTE 


UNIT, JRPCS1 


tee 


UNIT, RY 


;WAIT FOR SEEK TO START 


:15_SEEK UNDER WAY SET 
:SEEK UNDERWAY DID NOT SET 


— ATTENTION RESPONSE 


TIME wt ATTENTION BiT 
sDID 8 Mi TION SET? 


F YES 
‘DID rT TIME QUT? 
sBRANCH IF NO 
ATTENTION BIT DID NOT SET 
s ANY Me STATUS ERRORS? 


DEVICE sTarus & ERROR AFTER HOME COMMAND 


Se ON BIT 


commana ATTENTION BIT FOR CURRENT UNIT 


~— -1,2,4,10,20,40, 100, 200 


RP 


i 


ca 
—P- 
caon~ 


SSNs tes 


es 


o SSR ERE RERERERERRRRRRRRE DPE ETP ET nana 


o-+ 
o 


eS: 
SSRENERNNY 


Bk 
o 


iC tty ORIVE DIAGNOSTIC 


MACY11 27 (732) 


i6-SEP-76 i5:29 PAGE 20 


pnic apes PSS GRIMES Hf FoR a 


MODIFIER FOR A JSR INDIRECT INTO 
TABLE. 


THe FOLLOWING 
JMPTBL: SEEK K_A RANDOM CYLINDER 
SEKCK EF IF anion IS ne 


TE RANDOM 
rt AND VERIFY "RANDOM DATA 


wee 


pile es Soule ait pS oe CYLINDER 


FUNCTION 
is ONTER N ON THE vice TABLE WILL BE UPDATED TO 
CK FOR THE ATTENTION BI 
MOV DEVTBL +9(RS) ,DEVTBL +2(R5) -SET UP CYLINDER FROM ADDRESS 
- MOVB UNIT, @RPCS1 -SELECT THE UNIT 
; JSR :GENERATE TWO RANDOM NOS. 
ieee 
BIT #813, RPDS - 


-IS THIS AN RPO3? 
BEQ 6S ‘BRANCH IF NO 


BIC #177000 WORK1 
Ch #625, WO WORK! ~ ° ;GENERATE A CYLINDER ADDRESS 
Ci 1212, WORK :IS NUMBER TOO LARGE? 
BLT -BRANCH IF YES 

7S: CHP MORK, , DEVTBL+2(R5) 
MOV WORK1 , DEVTBL+4(RS) :SAVE CYLINDER ADDRESS 
MOV WORK2, PeVTEL+6(RS)_ -USE @ RANDOM paT A BASE 
JSR PC.RANDS NERATE TWO RANDOM 
MOV LONUM, WORK1 
MOV HINUM. WORK2 
BIC #177760, WORK1 
chp #11. WORK GENERATE: A RANDOM SECTOR 
SUB #8. WORK 

2s: IC #177740,WORK2 ;GENERATE A RANDOM TRACK 
CMP #23, WORK2 
BGE 3$ 
SUB #14, WORK 

3S: MOVE § WORK2,WORKI+1 ;MERGE TRACK AND SECTOR ADDR 
MOV 1. DEVTBL+10(RS) -STORE RANDOM DISK ADDRESS 
CLR tee eet - CLEAR TIMEOUT COUNTER 
MOY DEVTBL+4(RS), ARPCA YLINDER. RODRESS 
MOV DEVTBL+10(RS), JRPDA LOA FRAC CTOR 
MOVB 1, aRPCS —_ EK 
MOV $25" Ra 

4§; DEC RY sWAIT FOR SEEK TO START 
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OOO 0OWOWOWWOWWD 
o—* 0 b— 0 0 
WOOnNMU£CWre-O 


SRR SEES 


003404 
a 


aaah 
003430 


355 


001376 


wu 


a 


ses 


is 


a 


: 


ary 


a 


002090 


p08374 
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ONE 43 
002222 BIT #810, RPDS iI SEEK UNDERWAY? 
HL 
VTBL(RS) ve ATER T 
= fe ARTES ee a aR” 
: THIS ROUTINE IS ED OFTER A HAS BEEN ISSUED. 
-IT CHECKS THE A - IF CLEAR IT TES THE 
TIMEOUT, COUNTER ftp eck KS 7 IF SET IT VERIFIES 
SEKCK: MOV UNIT Re 
1774 MOVB (R4) ATTNB ;DETERMINE ATTENTION BIT 
002164 BIT ATTNB, JRPOS ; TEST FOR AT ION FLAG 
INC VTBL+12(RS) ‘UPDATE Ve Our COUNTER 
o0s406 chp DEVTBL+12¢ (RS) ” OPERATION TIMEOUT? 
002124 MOVE § UNIT, JRPCS1 SELECT no 
HLT s -SEEK TIMED OUT 
23: RTS -EXIT 
002124 i$: MOVE § ATTNB. JRPDS -CLEAR ATTENTION FLAG 
902192 MOVB UNIT, aRPCS1 -SELECT UNIT 
002110 I #810, 3RPDS ; SEEK UNDE UNDERWAY CLEAR? 
HLT a : SEEK UNDERWAY DID NOT CLEAR 
3S: ist gRPCS SARE THERE ANY DEVICE STATUS ERRORS? 
HLT a ‘DEVICE STATUS ERRORS 
SS: MOV JSUCA, RY -GET CURRENT CYLENDER ADDRESS 
CrP RY, DEVTEL+4(RS) ‘3 IT MATCH CYLINDER REQUESTED? 
HLT “GY REQUESTED DID NOT COMPARE 
ISR RS, PRINTS ENT 
175764 MOV seven shang oa 
«ISR PC PRINTS Baa: ;LOCATION-SUPRESS ZEROS 
JSR RS; PRINTS PRINT MESSAGE 
MES1I 
MOV TTY 
ISR PC’ PRINTR :TYPE LOCATION WITH LEADING ZEROS 
002010 4S: BIT #811, IRPDS -SEEK INCOMPLETE? 
BEQ +t ; BRANCH IF NO 
001762 MOVE #15. aRPCS Se HOME COMMAND 
; STB aRPCS WAIT FOR DONE 
ist aRPDS es FOR UNIT READY 
10S: cLR DEVTBL(RS) CLEAR FUNCTION POINTER 
6$: . INC DEVTBL(RS) 


2B 
ee 
bo 
oO 
of 
ps 
— -4 


| BRREBISNoal suns ob ominr ioe SOU COA Se Sk come SoBe : 
Seeeeerres «© SEaee 


eae 


seeenionee Fesrads 
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DOS26S 005374 INC DEVTBL (RS) -UPDATE FUNCTION POINTER 
RTS sEXIT 
905015 O42S522 052521 MESIO: .ASCIZ <15><12>’REQUESTED CYLINDER= ” 
l O4 020104 
oS 944514 O42116 
its 1412 O41 MESI1: .ASCIZ <15><12>’SUCA REGISTER= ’ 
020101 O4eS22 044507 
Seles 1105 d200 
903744 EVEN a 
: THIS ROUTINE WILL WRITE A RANDOM SECTOR ON.: 
- RANDOM TRACK. THE CYLINDER HAS ALREADY 
-BEEN SELECYED BY T ROUTINE. 
004767 000636 WRITE: JSR PC RANADR :GENERATE A RANDOM BUFFER ADDR 
012767 900400 o01622 MOV , WORK 
018701 001630 MOV BUFF. RI 
004767 000336 JSR RANDA :GENERATE A RANDOM PATTERN 
118777 OO1602 O01626 MOVB = UNIT, JRPCS1 “SELECT THE UNIT 
100006 001634 BIT #815, aRPOS -IS THE SELECTED UNIT READY 
001903 BNE 1$ : YES-BRANCH 
104400 HLT “SELECTED UNIT NOT READY 
000167 000100 JMP WRTER -START SEQUENCE OVER 
012777 177400 OO1604 1S: MOV 8-400, IRPWC :SETUP WORD COUNT REGISTER 
016777 O01S66 001800 MOV BUFF -SETUP BUS ADDR REGISTER 
016577 oOS400 001574 MOV DEVTBL+4(RS). aRPCA -SET CYLINDER ADOR 
016577 oOOS4O04 001570 MOV DEVTBL+10(RS3, JRPDA -SETUP DISK ADDR 
005067 oO1S46 CLR INT INT FLAG 
012737 000200 177776 MOV #PRI4. JePSi “ALLOW INTERRUPT 
005067 001530 CLR NTERR “CLEAR ERROR F 
112777 000113 001532 MOVB #113, aRPCS : INITIATE WRITE STH INTERRUPT 
004767 000612 JSR PC WAIT -TIMEOUT THE OPERATION 
005767 001512 TST INTERR -ANY ERRORS? 
001005 BNE. WRTER : BRANCH IF XS 
100 005265 005374 INC DEVTBL(RS) : UPDATE ON POINTER TO READ 
104 005265 005374 INC DEVTBL(RS) 
110 900403 BR READD 
112 005065 005374 WRTER: CLR DEVTBL(RS) ; RESTORE FUNCTION POINTER 
116 000207 RTS pC EXIT 
sREAD AND VERIFY THE DATA WRITTEN 
120 116777 OO14SO0 001474 READD: MOVB UNIT, SRPCS! -SELECT THE UNIT 
126 032777 001502 BIT #815; JRPOS -IS THE SELECTED UNIT READY? 
134 001003 BNE H 
136 104400 HLT -SELECTED UNIT NOT READY 
140 00167 152 JMP RDCNT 
144 012777 1 001452 1S: MOV 8-400, JRPWC sLOAD WORD COUNT REGISTER 
152 016777 001434 O01446 MOV BUFF. SRPBA ‘LOAD BUS ADDR REGISTER 
160 062777 O01 001440 ADD #1 
166 016577 O05400 001434 MOV DEVTBL+4(RS). JRPCA :SET CYLINDER ADOR 
174 016577 001430 MOV DEVTBL+10(R5), JRPDA -SETUP DISK ADDR. 
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so 7? O014 CLR NT N T FLAG 
ee aes Ch Wiese = feteae none 
le lle ? 000117 001400 MOVB #117 ,aRPCS s INITIATE READ WITH INTERRUPT 

a5 Ba 3585 nae 001366 Bt ast y PCS “ANY HARD ? 

330 p04232 01931 un BNE | es ‘BRANCH IF YES 

58 

a3 OLE? Oe ripen MOV UFF Re 

acy Sue 001000 bp ;ST PATTERN BUFFER 
age Bouses | e5125 3: ch ila Rho, —-FRORERE’ Data 

996 004254 901006 BNE es  SRANCH-ORTA a ID. NOT COMPARE 
aa Bousee ooo4o0 = sH00,R3 et tie “BEEN SCANNED 
999 904264 001372 BNE 

1900 004266 000167 o000e4 JMP ROCNT 

l 016267 177776 001070 2S: MOV -2(R2) ,EXPS$ 

1003 bess00 Oleie? is777e OoloGs NOY BURT)’ Recs 

1004 004306 O04S67 174752 JSR RS, PRIATS -PRINT MESSAGE 

1005 312 005747 NES12 

1006 314 104401 HL +1 ‘DATA DID NOT VERIFY 
1097 004316 OOSO&S 005374 RDCNT: CLR DEVTBL(RS) - INITIATE FUNCTION POINTER 
1008 004 000207 RTS PC EXIT 

1910 : GENERATE A RANDOM PATTERN 

1012 004324 O16567 OOS402 000132 RANDAT: MOV DEVTBL+6(RS) REND :GET RANDOM BASE 
1013 004332 016567 005404 OO0l2e6 MOV § DEVTBL+10(RS) , RAND 

1014 004340 016700 O00120 MOV RAND! , RO 

1015 OO4344 016704 000115 MOV RAND2; RY 

1016 004350 012703 000007 RANDAL: MOV 87,R3 -SETUR SHIFT COUNT 

1017 004354 o0S002 CLR R2 

1018 OO4356 006300 SHIFT: ASL RO :SHIFT RO LEFT AND 

1019 004360 006104 ROL RY -ROTATE CARRY INTO LSB OF RO INTO RY 
1020 o04362 006102 ROL Re “ROTATE CARRY OUT OF R4Y INTO Re 
1021 004364 005303 DEC R3 -DECREMENT R3 

1022 004366 001373 BNE SHIFT : CONTINUE 

1023 370 066700 000070 ADD RAND1,RO “ADD IN # TO MAKE X129 
1024 374 O0SS04 apc RY =PROPOGATE CARRY 

1025 004376 066704 O00064 ADD RAND2, R4 “ADD IN # TO MAKE X129 
102 Oo4402 o0ss0e2 ADC . GATE 

1027 OO4404 062700 001057 ADD #1057,R0 ;ADD LOW CONSTANT 

1028 o04410 OOSSO4 apc -PROPOGATE CARRY 

1029 904412 o0ss02 aoc Re -PROPOGATE AGAIN 

1030 004414 062704 047401 ADD #47401, R4 “ADD HIGH CONSTANT 

1031 oo44e0 oO0550e2 ADC R2 

1032 OO04422 O62702 OO000s ADD #6, Re 

1033 Oo04426 ADD Re. RO -REPRIME RO WITH HIGH DIGIT 
1034 004430 ADC RY 

1035 OO04432 010067 o000e MOV RO, RAND! 

1036 OO4436 010021 MOV RO: (R1)+ :STORE DATA IN BUFFER 
1037 OO444O 005367 001134 DEC WORK 

1038 OO4444 O01406 BEQ EXGEN 

1039 OO4446 010467 O00014 MOV R4, RAND2 

1040 Oo44S2 210421 MOV RY; (R1)+ :STORE DATA IN BUFFER 
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060710 


DEC 
RTS 


EXGEN: 
RANDI: QO 
RANDe: OQ 
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WORK 
ANDAL ‘FILL ENTIRE BUFFER 
PC -EXIT 


sTHIS ROUTINE DETERMINES THE TOTAL AMOUNT OF AVAILABLE 
;CARE WITHOUT USING MEMORY MANAGEMENT. 


EXTMEN: MOV 
EXREF : 


1$: ADD 
BR 


;ENTER HERE WHEN IQ BUS ERROR OCCURS 


MAXREF: SUB 
MAXRF 1: MOV 
CLR 
TST 
BEQ 


SUB 
1$: RTS 
SAVE: 0 


#PRI7, JePSW sLOCKUP PRIORITY LEVEL 
#MAXREF , 4 “SETUP IO BUS TRAP 
#PRI7.6° 

#17446, SAVE :START WITH 4K 

aSAVE “REFERENCE MEMORY 
81S7446,SAVE §§ :TEST FOR 28K 

1S or ‘BRANCH IF LESS THAN 28K 
#20000, SAVE : SETUP FOR NEXT REFERENCE 
EXREF 

#20000, SAVE 

46,4 sRESTORE IO BUS TRAY 
ae42 


sUNDER MONITOR CONTROL? 

1$ ; BRANCH IF NO 

#3000. , SAVE ;ADJUST TOP OF CORE 

RS sEXIT-SAVE=MAXIMUM MEMORY 
sHIGHEST AVAILABLE LOCATION 


;GENERATE A RANDOM BUFFER ADDRESS 


RANADR: MOV 


1$: ole 
RT g 


SAV.7 RY 

#E NDP, RY :DETERMINE BUFFER SIZE 

#2000; R4 -ALLOW ROOM FOR DATA 

PC RANDS “GENERATE TWO RANDOM NOS 

LONUM. WORK 1 

#80, WORK :MAKE NUMBER EVEN 

#100000, R3 

RY, WORK | ‘ENSURE THAT THE RANDOM 

1 | : ADDRESS ETT WITHIN AVAILABLE 
, WORK1 : MEMORY 


at as eur 


;SAVE BUFFER START ADDR. 


x 
- TIMEOUT THE OCCURANCE OF AN INTERRUPT 


WAIT: CLR 
es: INC 
TST 
BNE 


RO 

RO 

INT sR INTERRUPT OCCURED? 
1$ » YES-BRANCH 
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ll 
1097 004716 005700 TST RO sHAS OPERATION TIMED OUT? 

1098 004720 001372 BNE 2$ : NO-BRANCH 

1093 004722 104400 HLT Tat sUNIT eaAneD OUT ON READ OR WRITE 
Ha? Bess Giese Pg, OR ae 

1103 sENTERED UPON A DEVICE INTERRUPT. THIS ROUTINE 

1108 ‘WILL CHECK FOR AND REPORT DEVICE ERRORS 

1196 004732 932777 100000 OGO&E0 DSKINT: BIT #815, IRPCS : WHERE THER ANY ERRORS? 

1107 004740 00140 BEQ 1$ : BRANCH-NO ERRORS 

1108 O04742 900167 000110 JMP OSKER *REPORT ERROR 

1109 004746 018703 000640 13: MOV 

1110 7S2 062702 001000 ADD #1000,R3 

Lill 756 022765 005374 CMP #4,DEVTBL(RS) ;IS THIS A WRITE? 

lile 764 901402 BEQ 3$ ‘BRANCH IF YES 

1113 004766 O627C3 901000 ADD #1000,R3 

111% 004772 020377 OO00630 . 3S: CMP R3, JRPBA ;DID THE BUS ADDR TERMINATE PROPERLY? 
1115 004776 001425 BEQ '  s YES-BRANCH 

1116 104400 HLT “CONTENTS OF RPBA INCORRECT 

1117 905002 OO4SE7 174256 JSR RS, PRINTS ‘PRINT MESSAGE 

1118 OOSO0& 0905774 MES13 

1118 O05010 ? 174250 JSR RS, PRINTS :PRINT MESSAGE 

1120 005014 MESI9 

1121 OOSOl6 010367 174540 MOV R3, TTY 

ll22 905022 004767 174316 JSR PC’ PRINTR - TYPE LOCATION WITH LEADING ZEROS 
ll23 O0S026 OO4SE7 174232 JSR RS; PRINTS “PRINT MESSAGE 

1124 005032 Ooo6040 MESI9 

1125 005034 017767 OO0S&E 174520 MOV JRPBA, TTY 

1126 OOSO42 604767 174276 JSR PC PRINTR - TYPE LOCATION WITH LEADING ZEROS 
1127 OOSO46 005267 O00S36 INC INTERR “SET ERROR FLAG 

lies o0S0Se 900167 d00005 2s: IMP EXTINT 

1i29 OOSO0SE 104400 DSKER: HLT :REPORT INTERRUPT DISK ERROR 
1130 OOSO60 005267 opDSe4 INC INTERR -SET ERROR FLAG 
1131 005084 052767 000001 o00S22 EXTINT: BIS #80, INT 

113e 005072 032777 100000 o00S36 IS: BIT #815, JRPOS -IS THE UNIT READY 

1133 005100 001774 BEQ 1$ : NO- 

1134 005102 RTI “EXIT INTERRUPT 

1136 

4137 005104 032767 OO0002 174130 MSG: BIT #81 ,HLTCTS - TYPE ENTIRE MSG? 

1138 605112 001100 BNE 1$ -BRANCH IF NO 

1139 005114 OO4SE7 174144 JSR RS, PRINTS -PRINT MESSAGE 

1140 005120 MES1 

1141 O0Sle2 O16767 OOO44e 174432 MOV UNIT, TTY 

1142 005130 767 174222 JSR PC, PRINTS - sTYPE “OCATION-SUPRESS ZEROS 
1143 005134 ? 174124 ISR RS. PRINTS -PRINT MESSAGE 

1144 140 O0S6 MES2A : 

1145 005142 017767 O00470 174412 MOV 

1146 OOS1SO 004767 174170 JSR PC, PRINTR 

1147 OOF1S4 OO4S67 174104 JSR RS. PRINTS -PRINT MESSAGE 

1148 OOS1E0 OOSES2 MESIA | 
tieg ete Bae? reotts stteasin TOR oe BRINTR TYPE LOCATION WITH LEADING ZEROS 
i120 Bret oe Bpees 1 eabES 138 RE’ PRINTS ‘PRINT MESSAGE 

1152 905200 OOSEE3 S2 
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1153 017767 000412 
He fee hy IN 
He a8 Bae 
1157 O0See2 016567 
1iS& 005230 04767 174lee 
Tie noesag pos732 
' 116 005067 340 
Hes Hee Gi goes 
1163 005254 016767 =) 
1164 Q0S2e62e 904767 174070 
1165 O0S2e66 OO4SE7 173772 
1166 O0Se7e 005734 
1167 QO0S2e74 116567 OO0S404 
He tees bee 
HSS Hae Bore ka 
1171 OQ053e2 001001 
1i7e 905324 000207 
' 1173 Q0S326 
1174 O0S3e6 OO4SE? 173732 
13 34 016767 090030 
1199 Bbesue 767 173776 
1178 005346 O04S67 1737le 
1179 005352 006040 
1180 005354 016767 O000le 
1181 005362 004767 173756 
1182 005366 000207 
1183 005370 000000 
118% 005372 000000 
1185 
1186 
1187 
1188 
1189 
1190 
1131 
1132 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
le0e 
1203 
1204 
12e0S 005374 000000 
1206 005414 
1e07 COS414 000000 
1208 005434 
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174352 MOV JRPCS, T 
JSR PC, SStNTR -TYPE LOCATION WITH LEADING ZEROS 
J R. RS; PRINTS -PRINT MESSAGE 
174332 MOV DEVTBL+4(RS) , TTY 
JSR PC, PRINTS : TYPE LOCATION-SUPRESS ZERCS 
JSR RS: PRINTS “PRINT MESSAGE 
ct WORK3 
000332 VB DEVTBL+11(RS), WORKS 
174300 MOV Y 
13k PC, PRINTS ; TYPE LOCATION-SUPRESS ZEROS 
JSR RS. PRINTS “PRINT MESSAGE 
000304 MOVB § DEVTBL+10(RS),WCRK3 
174252 MOV WORK3, TTY 
JSR pc pRINTS sTYPE LOCATION-SUPRESS ZEROS 
173720 18 BIT #80, HLTCTS “TYPE EXPECTED - RECEIVED? 
BNE 2$ ‘BRANCH IF YES 
oa RTS PC 
SR RS, PRINTS -PRINT MESSAGE 
MES18 
174220 MOV ExPs TTY 
JSR PC. PRINTR - TYPE LOCATION WITH LEADING ZEROS 
JSR RS: PRINTS :PRINT MESSAGE 
174200 MOV RECS, TTY 
ISR FC, PRINTR : TYPE LOCATION WITH LEADING ZEROS 
a 
-DEVTBL IS A TABLE CONTAINING SLOTS FOR EACH OF EIGHT 
;POSSIBLE UNITS. DURING THE OPERATION OF THE PROGRAM 
-RS IS USED AS A MODIFIER TO POINT INTO THE TABLE TO 
:SELECT THE PROPER UNIT. EACH UNIT SLOT CONTAINS 
-EIGHT ENTRIES( 
1 FUNCTION POINTER 
: O=SEEK 
. g=SEEK IN PROGRESS 
: &=READ 
IF NEGATIVE-UNIT IS NOT TESTED 
2 CYLINDER FROM ADDRESS-INDICATES PREVIOUS CYLINDER POSITION 
-3 CYLINDER TO ADDRESS-ADDRESS OF THE SEEK COMMAND 
*4 RANDOM BASE FOR PATTERN GENERATION 
-S RANDOM TRACK AND SECTOR ADDRESS 
*& CYLINDER SEEK TIMEOUT COUNTER 
-7 SPARE 
-§ SPARE 
EVEN 
DEVTBL: 0 ;UNIT O SLOT 
=DEVTBL+20 
UNITL: -UNIT 1 SLOT 
,sUNIT1+2e0 
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036522 


041501 
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000 
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050115 
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UNIT2: 0 sUNIT 2 SLOT 
| SUNIT2+20 3 
UNIT3: 0 -UNIT 3 SLOT 

 SUNIT3+20 
UNIT4: 6 -UNIT 4 SLOT 

UNIT4+20 
UNITS: 9 sUNIT 5 SLOT 

UNI TS+20 
UNITE: © ;UNIT& SLOT 

. sUNITE+20 
UNIT?: 6 UNIT 7 SLOT 

. =UNIT7+20 
-RP11 CONSTANTS-MEMORY ASSIGNMENTS 
UNIT: 0 CURRENT _UNTI_UNDER TEST 
PASSCT: O -COUNTS EACH PASS THRU 8 UNITS 
WORK: 0 ; TEMPORARY STORAGE AREA 
WORKI: Q 
WORKe: OQ 
WORK3: Q 
INTERR: O ; INTERRUPT ERROR FLAG 
BUFF: 0 -STARTING ADDRESS OF BUFFER 
INT: O INTERRUPT FLAG 
FLAG: O “FLAG WORD | 
-DISK IO REGISTERS a 
RPCS: 176714 sDISK CONTROL REGISTER’ 
RPCS1: 176715 ‘ 
RPC: 176716 DISK WORD COUNT REGISTER 
RPBA: 176720 -CURRENT ADDRSS REGISTER 
RPCA: 176722 “CYLINDER ADDRESS REGISTER 
RPDA: 176724 ‘DISK ADDRESS REGISTER 
RPER: 176712 -ERROR REGISTER 
RPDS: 176710 ‘DRIVE STATUS REGISTER 
SUCA: 176734 :CURRENT CYLINDER RODRESS 

— VECTOR=254 Biae int VECTOR BODR. 

STATUS=256 ISK INTERRUPT STATU 
: MESSAGES 
MES1: .ASCIZ <15><12>/UNIT / 
MESIA: .ASCIZ <15><12>/RPER= / 
MES2: .ASCIZ <15><12>/RPCS= / 
MES2A: .ASCIZ <15><12>/RPDS= / 
MES3: .ASCIZ <15><12>/CYLINDER= / 
MES4: .ASCIZ <15><12>/TRACK= / 
MESS: .ASCIZ <15><12>/SECTOR= / 
MES12: .ASCIZ <15><12>/DATA COMPARE ERROR/ 
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MESI3: .ASCIZ <15><12>/BUS ADDRESS INCORRECT / 


MESI8: .ASCIZ <15><12>/EXPECTED / 
MES1S: .ASCIZ <«15><l2>/RECEIVED / 
ENDP: 


;START OF SUFFER AREA 


> 
*-« 
’ 
A TL 
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DZRPCB.PI1 CROSS REFERENCE TABLE -- USER SYMBOLS 


TIN 0030" ° 7396—Ci<“‘é‘é<@S LYNN 887 
ATTNS ape 735* 796% 801 810 Sl3s o97% gee 897 
SELL 1250 So4 S2Ss 
BUFF OOSble . 348 $s’ 981 991 392 108S* 1109 1220" 
BO = 90000] 738 =. 1080 1131 Li: 
81 = 000002 - 788 1137 
Sif = 002000 oF 731 874 s33 
B11 = QO4000 3688 S01 9193 : 
Bis = 010000 3678 | 
Bl = 020000 3668 S S31 S49 $Se2 340 
B14 = 940000 3658 465 983 
Bs = 100000 338 518 728 738 749 7s8 3951 WE 1106 L132 
33 = 000010 3768 731 754 764 
os = 002020 3758 
BS = 000040 3748 
SE = 909100 3738 
8: = 000200 37e8 
35 = 000400 3718 742 
os = 901000 3708 
C = 900000} is 
CLRTAS OGe416 7i&8 719 : 
OEVTBL 005374 716% 728% 738% 749 758 760 834s 849s gSis 8S2+ 866% 867% 868 
869 . 877% 878s 890s 89! 9C8 313 925+ 928+ 329+ 353 9 $¢7# 
968% 9708 382 984 1007# 1Q0le 1013 lll! 1157 llée 1187 12058 1206 
DISPLA= 177570 3Ses . 
OSKER 1108. 112938 
DSKINT O04732 713 11068 
EMTVEC= 3488 . 
ENDP “ : 1076 1088 12758 
ERRFLG 001240 467 469% 5182 Sels 
ERROR  OOllle 4988 7993 
ERRORS O01246 - §19% So4s 
0012S2 S08 Sebs 
C= 900004 3438 
ey 004462 1 1043s 
005370 1002# 1176 11838 
EXREF  O04520 10S5S* 1060 
TINT OOSO64 23 ligls 
904470 10518 
LAG OOssisé l23e8 
HINUM 001700 603 614s 6188 8393 ess 
HLT = j104400 2 786 733 gos 803 876 334 901 305 310 3S3 378 10d 
1039 L116 11es 
HLTACS 901244 cose S10# $1} Sle S238 : 
MLTCT$ O0le4%e Sils Sees 1137 1170 
HOME 002742 l 7838 
ICNT 001000.- 4SSs 
INPUTS 9002014 621 622 5458 6SE 697 
INT - 005614 360% gses# 1095 ll3l# le2e3ls 
INTERF O0S610 * SES 966# 11008 tlie?» 1130 12298 
IOTVEC=s 000020 . g : sede 
JMPTBL OOSIOE 76} Bets 
KIPARO= 172340 3848 
KIPRRI= 172342 3 
KIPAR2= 172344 3868 
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DZRPCB.P11 CROSS REFERENCE TABLE -- USER SYMBOL 
KIPARS= 172346 . 78 
KIPARY= 172350 388s 
Meee es 
K panes li 256 33! 
KIPORO= 172300 3928 - 
KIPORI= 172302 3938 
PDR Se 172304 3348 
KI +ega0e r 
KIPORS= 17231 3% . 
KIPORS= 1723le 3978 - 
KIPOR6= 172314 3988 
KIPOR7= 172316 3338 : i 
LAD i case 471 , . 
L ] Bee 601 613% 6198 838 8S4 10793 
L Fy 773 
MAIN 09eS32 7588 785 
DO4S46 1952 1OE4s 
MAXRF] OO45S4 1058 106Sa 
MES1 00Sé42 1140 le4ss 
MERI | DOSER ai Ses 
e 
: ae eS 
MES12 OOS74 1005 l2638 
MES13 005774 1118 le&78 ¥ 
MESIG 906024 1120 1175 levis 
MES1S OO6040 1le4 1179 le738 
MESe COSEES 1152 1252 
MES2A 005574 1144 1es4s 
MESS 005705 1156 12S68 
MES4 005722 1180 12esSe 
MESS 00S734 1188 lebls 
MEXiT 902730 3 
MEXIT1 O02740 769 7788 
SG 005104 Si4 1137s 
N = 000010 | 3328 
NUMS 00e334 &S4# b6c# 668% 574% 679% 687% 7038 
PACKS O020E2 6528 
PaCS 002302 it 663 669 ie 680 6948 
PASSCT 905576 # 766% 767 lee4s 
PC =%000097 % 453% 482% 493% fe 514s SSl# sS4# S87% Sols &1S# 616% S43 
653% 661% 663% 669+ 675+ 680% 69i# 692% 700% 7S1% 761% 77 4s Sil 
837% + g 896% 914# 919% 927% 930% 346% 949% 364 371s 98S 
1008 ‘943% 1078 1090% 1i101% Illéget Illeb* 11428 iil1146% 11508 i 1l1S4# 158% lis 
1169 1.172% 11778 #<118l# 1182 
PFYEC = 000024 3478 
PKEX$ 002270 6898 535 é 
/PKEXI§ 002274 se 690% : 
, PKS 002332 662 665% 565% 667% 668 671% 672% 673% 674 676% 679+. 673 S521 
E83# 6844 685+ 686% 687 696# 697% 699% 702s 
mage anes 
PEINTE Spt 304 273 49% $18 lize lleb 1146 1150 1154 1177 1181 
PRINTS O01356 cScs $14 Ll42 11S8 1164 1169 , 
PSINT$ O01254 S2ls 63 640 311 315 1004 L117 1119 Ll23 11398 1143 
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ert s Os 
gS 2 1 Ss 
Paty = Ob0S ss G1 
= ‘ 
PRis = DO0S40 368 
PRI& = 000300 3358 
PRI? = ane 710 7le 1051 1053 
PRNTF§ } S32 S3S8 
<a li 3528 note 361% 1051# 
RANGRT SoNaes gus 1013s 
RANDAL 904350 10168 10s 
RAND$ riaey 5908 83 8S3 1078 
RAND | 4 tes ime ince iaaee ie 
Rant OO4316 a3 ] at 
READD 004120 827 969 9758 
READLS$ O02060 §4] 6478 
002054 6468 
RO§$ 704 6208 
te 1003% #1180 1184s 
RES 1065 “cS 8 615 631 
RESVEC= 000010 Fy 
RPGR O0S&25 9S7* 981% 982 1114 1125 12378 
mole 005630 coos 9cg# 983% 12388 
RPCS 905620 7o4e 787% 807 870% 3903 S21# S22 963% 987% 389 1106 1153 l2s4s 
RPCS1 popes 725% 783% ae 893% 898% 9S0# 975% 12358 
RPDA 8592 9S9# * 12398 
RPDS OOSE3E 726 784 731 801 810# 849 ous eos 897s 83g 319 324 3$1 
ll 1145 le41ls 
RPER 00SE34 1149 12408 
RPWC 00Sb24 956+ 12368 
Ri = 900006 400 
RO =%000000 3iSs8 481 487% S36# 605% Ll# 613 655% 6554 660% 
698# 71S% 716% 717 718 7ee# % 729% 735% 738% 7% 
798% 800% 10:4# 1018% 10238 1027% 10338 #1035 1093%# 10948 1097 
Ri =”000001 Fy 480 “Ook ke + 603% 606% 608s Sl2# 614 3* 
nee pete l# 742 7ek 774 948 991s 1003 
RE =~000002 sels 479 $9S# $98# 601% 604s 607% 609% 610% 61! 392% 395 
l 1017%  l10e0# yor ] 1931# 10328 1 
RS =~000003 t eA 490% Bay A Tite A i AY: or 993% sae 998 LO1s# 
aa =~%000004 3238 a3 491% ssg3 nae ls 433 £59 + l 798s 
736 871% ey Bobs 7 7% 317 101S*# 1019% 02% 02S 
1028 10308 i1034# |] 1040 107S# 1076% 10778 1082 
aS =%000005 3248 476 7% 3% a ? S39 S40 42% S43 S44 
t 631% 640s 4S# * 3 * 7% 7S8 760 763% S34 849 
BS1# 852% 866% 867% 868 ee 877% 879% §90* g$1 Sills 
SiS# S264 # 9S8 3 7% 3 70% 983 4 1004# 1007s 
105 103 1070% iii 1117# L11S9® 1ll2e3% 113998 L143 j&L1478 $j.JiSle 1L15S5# 1157 
115 ll 65* 116 1174% 11788 
SAVE 004604 eee 1055 105S* 1064s 069%  l07l8 1075 
SAVES O01036 475% $31 653 
SCOPE = 194000 407% 
SCOPES 901004 4658 711 
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ia 003116 824 te 
Sift DONSEE ibise | 
SP =*000006 2258 471% act 476% 477% 478% 479% 4aQs 461% “oe “a7 488 489 
490 491 492 537% 538 S42 cSo* Seb 689# 707% 
= 177572 3838 | 
START  O02336 453 7078 
STATUS= O002SE 7148 ine 
ih: an ae 
le4es | 
om = 177570 ce Blots 498 S01 Sos 51s S31 54% .§S2 736 767% 
TBITVE= i4 3458 
TKB =] 3548 634 
TKS = 177560 3538 
TPB = 177566 3568 444 
TPS = 177564 355% Ses 635 
TRAPVE= | e738 
TTY l l SES* S6es 570% S89s 913% 917% illéle 1125% Ili4le# i4JL14S# L149e {153s 
| 1157% 163% 1188% 1176% 1180 
UNIT 005574 + 7Se% 754. 756% 762% 764 783 794 835 sec 393 ggg 359 
975 1141 le23s | 

UNIT1 005414 12078 1 
UNTT 005434 12098 1210 

IT3 lelie  lele 


UNITE 2178 1218 

UNIT? 905554 2198 1220 

UP = 900000 4018 

¥ __= 900002 F 

VECTOR= 900254 713% 12438 

WAIT 904704 4 10938 | 

WORK  OOSEOO Q47x 1037" 1041* 12258 

WORK: 005602 e7ge 842s (9843 B4be 847 849 951 gS4e 956 8S7 gS9e sb4e gc 
1079s 1080s 1082 1084 1088" 1089 226s | 

WORK2 90504 939  6S2 855" 860s 861 863% 864 12278 

WORK3 Q0S60R 1ibi# 1162" 1163 1167" 1168 12288 

WRITE 626 «U6 8 

WRTER 90411 4 96 (9708 

. = 006056 Wis 4S2e 4Sue Soe... S3% SHE 556 . 573 S76 . S81 S88e 625° 636 
6458 923 925 9408“ 12068 12088 12108 “12128 12148 12168 12198 2208 

PR = OO1S36 ssos 557s  Soee S60 Se4 S74e §75 # S7gs S80 Sas Saas : 

"PREF = -901 452 ss s«éS770 

“PRL. | O07424 S638 s«§79 

"PTIT 00 i 





RPLIC MULTI ORIVE DIAGNOSTIC 
OZRPCB. CROSS REFERENCE 


Pll 

eit 
4418 

LDOPDR 4038 
PACK 4453 
PRINT 428% 
iss 

PRINTF 4398 
RAND 4458 
READ 447s 
REST 435% 
SAVE 4348 
SOLMP mee g 
SDUMPF U4e8 
. DUMP 4408 
. ERROR 4368 
. PACK 448% 
.PRINT 4378 
. RAND Holy 
. READ 446% 
T 4348 

. SAVE 4348 
. SCOPE 434s 


Sle 


$0” 
1153 
503 


917 


S84 
1165 
8S3 


om tS 27(732) 
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TABLE -- MACRO NAMES 


1121 1125 2149 1153. 1176 1190 

630 640 S11 915 1004 {117 1119 1123 
1173-1178 | 

1078 

1iS? 1163 =: 1188 


— rr ee 


1139 


1143 


1147 


1151 


RP11C ttt satay BL RNP ne Wea pte” eae ie 


Abb 


am i 


qgamoacdd 
> 46 4-40-4604 


mg ge Ge 88 gee 


£3 
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iis 


ie 


1923 
S96 


bot 


BRR AEESS SHE PREIS ERLE 


RR REE 


rt ay Ee 


a et 
S E38 


i 


or 
NO 


oe 


eS2 88 8eg 


Resse © LokoNeh 


¢- 
bo 
hae 


ul 
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Ree 2 


as 


4 
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RE as 


eo 
-— 
-- 


$38 e 
oS 2a5 ¢ 


- 
Ww 


b-2 & = 


Bed Sas Berta 


Reseh sears 
£€ #9 SSenagsiae 


bb 
a 
ule 
& = es 


ule 
™ 
oo 


y td 


a 38 


un 
, “J 
o-- 


1024 
610 
1059 


o 
o-- 
wm 


ae f-> 


a0 Sceeenele-e 


es 
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026 
611 
1088 


1367 


é 
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*yNeOLs 


S 


Thasne dere 
Sete 
BOKRR sae 


> 
Ro 
0 


o 
“3 
@ 


ag™ 
| 
NJ 


A} 


R 


S ie 


+ 
3 


—- + 

-—- OC” 

moi 

COUT) 
-~ 


@ o-iin 
“ WUT 
$¢--e- 
—-©O 
me 
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© 


cD 
Ww 


1034 
7$3 


743 


746 
1007 


830 





763 


7S5 


7S 
1170 


382 394 


763 


791 
7930 
1042 
1060 
756 
1033 


1082 
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RT 05 533 0 1 

RT 534 245 l zy $87 616 $43 632 700 811 879 896 327 930 971 
1008 1043 1070 1090 1101 1l7e 1182 

SUB . Si0 8s9 3 1064 1063 1076 1077 

SWAB 671 676 681 

TRAP 405 

TST ep Pr RS 694 717 720 726 768 784 803 807 903 Je4 965 10S5 

yp ess S4 4S S72 $75 624 635 656 922 

~ASCIZ oer 2 646 647 93e 936 1248 1250 l2Se 12eS4 1256 1285 1261 1263 L267 

- BLKW S88 6 

BYTE 814 

- ENO 1276 

- ENDC 515 

- EVEN S28 Bie .. 340 1204 

. IF 5i4 

-LIST 319 oa 

- MACR Me 434 435 436 437 438 439 440 441 442 443 445 446 447 448 

-MACRO 444 

NLIST 311 451 

- PAGE 705 

- REM 1S 

REPT 451 

-TITLE 313 705 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


#, DZRPCB. SEG/SOL/CRF /PAGNUM*DZRPCB.MO1, DZRPCB 
RUN-TIME: S 8 2 SECONDS 

RUN-TIME RATIO: 152/16=9.3 

CORE USED: 8K (15 PAGES) 
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Le 
ds, 3 disk writes 
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Sasa opaUDOU OREO RRC A Ua aO oO aU eaO UD ooUaUaUt 555 
fe Te irtrtrty Pr Pm mmr Pe PP EP > P9999 9989 AA ARAAAARAAAARAAAAAAS rT peeeeeaaa 


ae Ste at, ae 





_ a Pe 
»QOOCU00COUSUGCUCUUO0U000U0U0 


wy Sy Sy Bs =5 -Ss5ebbebe 


* 
7 


